home *** CD-ROM | disk | FTP | other *** search
/ Super CD / Super CD.iso / teach / eng-word / mono.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1983-01-19  |  128 b   |  5 lines
  1. 20  KEY OFF: COLOR 7,0: CLS
  2. 30  WIDTH 40: DEF SEG=0: A=PEEK(&H410): POKE &H410,A OR &H30
  3. 40  WIDTH 80: LOCATE ,,1,12,13: WIDTH 80
  4. 50  RUN "ATTACK"
  5.